home *** CD-ROM | disk | FTP | other *** search
/ Next Step: Mars? / Next Step Mars (1994)(IVI).iso / erlyrckt.dir / 00129_Script_129 < prev    next >
Text File  |  1994-11-28  |  2KB  |  73 lines
  1. on startMovie
  2.   global qtCastName,qtSprite ----,increment, L
  3.   initSearchPath
  4.   set qtCastName = "Rubyshoe"
  5.   set qtSprite = 23
  6. end startMovie
  7.  
  8. on checkKey
  9.   if the key = RETURN then
  10.     if field "passwordbox" contains "plasma" then
  11.       go to frame "start"
  12.     else
  13.       go to frame "nopass"
  14.     end if
  15.     when keydown then nothing
  16.   end if
  17. end checkkey
  18.  
  19. on firstFrame
  20.   global qtSprite
  21.   set the movieRate of sprite qtSprite = 0
  22.   set the movieTime of sprite qtSprite = 0
  23. end firstFrame
  24.  
  25. on lastFrame
  26.   global qtSprite,qtcastname
  27.   set the movieTime of sprite qtSprite = the duration of cast qtcastName
  28. end lastFrame
  29.  
  30. on stopMovie
  31.   unLoadCast
  32. end stopMovie
  33.  
  34. on stepFwdQT
  35.   global qtSprite,qtcastname
  36.   set the movieRate of sprite qtSprite = 0
  37.   if the movieTime of sprite qtSprite < the duration of cast qtcastname then
  38.     set the movieTime of sprite qtSprite = the movieTime of sprite qtSprite + 1
  39.   end if
  40. end stepFwdQT
  41.  
  42. on stepRevQT
  43.   global qtSprite
  44.   set the movieRate of sprite qtSprite = 0
  45.   if the movieTime of sprite qtSprite = 0 then exit
  46.   set the movieTime of sprite qtSprite = the movieTime of sprite qtSprite - 1
  47. end stepRevQT
  48.  
  49. on frameCounter
  50.   global qtSprite
  51.   set the text of cast "counter" to string(the movieTime of sprite qtSprite)
  52. end frameCounter
  53.  
  54. --on rewindQT
  55. global qtSprite
  56. set the movieRate of sprite qtSprite = -3
  57. --set the movieTime of sprite qtSprite = 0
  58. end rewindQT
  59.  
  60. on pauseQT
  61. global qtSprite
  62. set the movieRate of sprite qtsprite = 0
  63. end pauseQT
  64.  
  65. on playQT
  66. global qtSprite,qtcastName
  67. set the movieRate of sprite qtSprite = 1
  68. end playQT
  69.  
  70. on playQT2
  71. global qtSprite,qtcastName
  72. set the movieRate of sprite qtSprite = 1
  73. end playQT2